#########################################################################
# Figure 6

options(warn=-1)
par(mgp=c(2, .7, 0), mgp=c(2, .5, 0), las=1, mfrow=c(1, 3), tck=-.02)

cor.test(data$behave, data$liberal, use="complete.obs")
plot(jitter(data$behave), jitter(data$liberal), pch="", cex=.1, ylab="Support Permit/Oppose Ban", xlab="Important to Behave Properly", axes=F)
grid(lty=1, lwd=.5, col="lightgrey")
axis(1, col="white")
axis(2, col="white")
points(jitter(data$behave), jitter(data$liberal), pch=19, cex=.1)
lines(loess.smooth(data$behave, data$liberal), col="orange")

cor.test(data$safety, data$liberal, use="complete.obs")
plot(jitter(data$safety), jitter(data$liberal), pch="", cex=.1, ylab="Support Permit/Oppose Ban", xlab="Important to Ensure Safety", axes=F)
grid(lty=1, lwd=.5, col="lightgrey")
axis(1, col="white")
axis(2, col="white")
points(jitter(data$safety), jitter(data$liberal), pch=19, cex=.1)
lines(loess.smooth(data$safety, data$liberal), col="orange")

cor.test(data$told, data$liberal, use="complete.obs")
plot(jitter(data$told), jitter(data$liberal), pch="", cex=.1, ylab="Support Permit/Oppose Ban", xlab="People Should Do What Told", axes=F)
grid(lty=1, lwd=.5, col="lightgrey")
lines(loess.smooth(data$told, data$liberal), col="orange")
axis(1, col="white")
axis(2, col="white")
points(jitter(data$told), jitter(data$liberal), pch=19, cex=.1)
lines(loess.smooth(data$told, data$liberal), col="orange")
options(warn=0)

##############################################################################################
